(free_marker): Call unchain_marker.

diff --git a/src/alloc.c b/src/alloc.c
index b488a28309cab10e4aac5ada89977c7ec1448d16..b5a45fd38459df776f97aa0848da9936c3e10988 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1044,6 +1044,8 @@ DEFUN ("make-marker", Fmake_marker, Smake_marker, 0, 0, 0,
 free_marker (marker)
      Lisp_Object marker;
 {
+  unchain_marker (marker);
+
   XMISC (marker)->u_marker.type = Lisp_Misc_Free;
   XMISC (marker)->u_free.chain = marker_free_list;
   marker_free_list = XMISC (marker);